CAANEPTUNEPlanet <-
function(Year){
.Call("NEPTUNEPlanet", Year)
}
